home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / dc25h-3.zip / DIMHV.MAC < prev    next >
Text File  |  1990-04-22  |  4KB  |  149 lines
  1. ; DIMHV.MAC (c) 1990 Daniel H. Hudgins
  2.  
  3. INIT
  4. BEGIN
  5. APPEND -1 -1 0 1 -1 0 1 1 0 0
  6. APPEND 1 -1 0 1 1 0 1 1 0 0
  7. APPEND 1 1 0 -1 1 0 1 1 0 0
  8. APPEND -1 1 0 -1 -1 0 1 1 0 0
  9. LETTERING
  10. 2.000
  11. 0 0 0 0 0 0 0.125 0.125 
  12. 1 1 0 0 0 0.25 0.354166666 40 
  13.  C P DANCAD3D.FON 
  14. APPEND -1 0 0 -0.321875 0 0 1 1 0 0 
  15. APPEND -1 0 0 -0.9125 0.03125 0 1 1 0 0 
  16. APPEND -1 0 0 -0.9125 -0.03125 0 1 1 0 0 
  17. APPEND -1 0.1875 0 -1 -0.1875 0 1 1 0 0 
  18. APPEND 1 0 0 0.321875 0 0 1 1 0 0 
  19. APPEND 1 0 0 0.9125 0.03125 0 1 1 0 0 
  20. APPEND 1 0 0 0.9125 -0.03125 0 1 1 0 0 
  21. APPEND 1 0.1875 0 1 -0.1875 0 1 1 0 0 
  22. # 2 CENTER 0 0 0 
  23. # 2 ROTATE CURRENT 0 0 0 
  24. # 2 OFFSET ZERO 0 -1.5 0 
  25. LETTERING
  26. 2.000
  27. 0 0 0 0 0 0 0.125 0.125 
  28. 1 1 0 0 0 0.25 0.354166666 40 
  29.  C P DANCAD3D.FON 
  30. APPEND -1 0 0 -0.321875 0 0 1 1 0 0 
  31. APPEND -1 0 0 -0.9125 0.03125 0 1 1 0 0 
  32. APPEND -1 0 0 -0.9125 -0.03125 0 1 1 0 0 
  33. APPEND -1 0.1875 0 -1 -0.1875 0 1 1 0 0 
  34. APPEND 1 0 0 0.321875 0 0 1 1 0 0 
  35. APPEND 1 0 0 0.9125 0.03125 0 1 1 0 0 
  36. APPEND 1 0 0 0.9125 -0.03125 0 1 1 0 0 
  37. APPEND 1 0.1875 0 1 -0.1875 0 1 1 0 0 
  38. # 3 CENTER 0 0 0 
  39. # 3 ROTATE CURRENT 0 0 90 
  40. # 3 OFFSET ZERO -1.5 -4.5475E-13 0 
  41. LETTERING
  42. 2.000
  43. 0 0 0 0 0 0 0.125 0.125 
  44. 1 1 0 0 0 0.25 0.354166666 40 
  45.  C P DANCAD3D.FON 
  46. # 4 CENTER 0 0 0 
  47. # 4 ROTATE ZERO 0 0 -90 
  48. APPEND -1 0 0 -0.125 0 0 1 1 0 0 
  49. APPEND -1 0 0 -0.9125 0.03125 0 1 1 0 0 
  50. APPEND -1 0 0 -0.9125 -0.03125 0 1 1 0 0 
  51. APPEND -1 0.1875 0 -1 -0.1875 0 1 1 0 0 
  52. APPEND 1 0 0 0.125 0 0 1 1 0 0 
  53. APPEND 1 0 0 0.9125 0.03125 0 1 1 0 0 
  54. APPEND 1 0 0 0.9125 -0.03125 0 1 1 0 0 
  55. APPEND 1 0.1875 0 1 -0.1875 0 1 1 0 0 
  56. # 4 CENTER 0 0 0 
  57. # 4 ROTATE CURRENT 0 0 90 
  58. # 4 OFFSET ZERO 1.5 0 0 
  59. LETTERING
  60. 2.000
  61. 0 0 0 0 0 0 0.125 0.125 
  62. 1 1 0 0 0 0.25 0.354166666 40 
  63.  C P DANCAD3D.FON 
  64. # 5 CENTER 0 0 0 
  65. # 5 ROTATE ZERO 0 0 -90 
  66. # 5 OFFSET ZERO -1.34375 0 0 
  67. APPEND -1 0 0 -1.1875 0 0 1 1 0 0 
  68. APPEND -1 0 0 -1.0875 0.03125 0 1 1 0 0 
  69. APPEND -1 0 0 -1.0875 -0.03125 0 1 1 0 0 
  70. APPEND -1 0.1875 0 -1 -0.1875 0 1 1 0 0 
  71. APPEND 1 0 0 1.1875 0 0 1 1 0 0 
  72. APPEND 1 0 0 1.0875 0.03125 0 1 1 0 0 
  73. APPEND 1 0 0 1.0875 -0.03125 0 1 1 0 0 
  74. APPEND 1 0.1875 0 1 -0.1875 0 1 1 0 0 
  75. # 5 CENTER 0 0 0 
  76. # 5 ROTATE CURRENT 0 0 90 
  77. # 5 OFFSET ZERO 2 0 0 
  78. LETTERING
  79. 2.000
  80. 0 0 0 0 0 0 0.125 0.125 
  81. 1 1 0 0 0 0.25 0.354166666 40 
  82.  C P DANCAD3D.FON 
  83. # 6 OFFSET ZERO -1.540625 0 0 
  84. APPEND -1 0 0 -1.1875 0 0 1 1 0 0 
  85. APPEND -1 0 0 -1.0875 0.03125 0 1 1 0 0 
  86. APPEND -1 0 0 -1.0875 -0.03125 0 1 1 0 0 
  87. APPEND -1 0.1875 0 -1 -0.1875 0 1 1 0 0 
  88. APPEND 1 0 0 1.1875 0 0 1 1 0 0 
  89. APPEND 1 0 0 1.0875 0.03125 0 1 1 0 0 
  90. APPEND 1 0 0 1.0875 -0.03125 0 1 1 0 0 
  91. APPEND 1 0.1875 0 1 -0.1875 0 1 1 0 0 
  92. # 6 CENTER 0 0 0 
  93. # 6 ROTATE CURRENT 0 0 90 
  94. # 6 OFFSET ZERO -2 0 0 
  95. LETTERING
  96. 2.000
  97. 0 0 0 0 0 0 0.125 0.125 
  98. 1 1 0 0 0 0.25 0.354166666 40 
  99.  C P DANCAD3D.FON 
  100. # 7 OFFSET ZERO 1.540625 0 0 
  101. APPEND -1 0 0 -1.1875 0 0 1 1 0 0 
  102. APPEND -1 0 0 -1.0875 0.03125 0 1 1 0 0 
  103. APPEND -1 0 0 -1.0875 -0.03125 0 1 1 0 0 
  104. APPEND -1 0.1875 0 -1 -0.1875 0 1 1 0 0 
  105. APPEND 1 0 0 1.1875 0 0 1 1 0 0 
  106. APPEND 1 0 0 1.0875 0.03125 0 1 1 0 0 
  107. APPEND 1 0 0 1.0875 -0.03125 0 1 1 0 0 
  108. APPEND 1 0.1875 0 1 -0.1875 0 1 1 0 0 
  109. # 7 CENTER 0 0 0 
  110. # 7 ROTATE CURRENT 0 0 90 
  111. # 7 OFFSET ZERO -2.5 0 0 
  112. LETTERING
  113. 2.000
  114. 0 0 0 0 0 0 0.125 0.125 
  115. 1 1 0 0 0 0.25 0.354166666 40 
  116.  C P DANCAD3D.FON 
  117. # 8 CENTER 0 0 0 
  118. # 8 ROTATE ZERO 0 0 -90 
  119. # 8 OFFSET ZERO 1.34375 0 0 
  120. APPEND -1 0 0 -1.1875 0 0 1 1 0 0 
  121. APPEND -1 0 0 -1.0875 0.03125 0 1 1 0 0 
  122. APPEND -1 0 0 -1.0875 -0.03125 0 1 1 0 0 
  123. APPEND -1 0.1875 0 -1 -0.1875 0 1 1 0 0 
  124. APPEND 1 0 0 1.1875 0 0 1 1 0 0 
  125. APPEND 1 0 0 1.0875 0.03125 0 1 1 0 0 
  126. APPEND 1 0 0 1.0875 -0.03125 0 1 1 0 0 
  127. APPEND 1 0.1875 0 1 -0.1875 0 1 1 0 0 
  128. # 8 CENTER 0 0 0 
  129. # 8 ROTATE CURRENT 0 0 90 
  130. # 8 OFFSET ZERO 2.5 0 0 
  131. BEGIN 
  132. APPEND -1 0 0 0 0 0 1 1 0 0 
  133. APPEND -1 0 0 -0.9125 0.03125 0 1 1 0 0 
  134. APPEND -1 0 0 -0.9125 -0.03125 0 1 1 0 0 
  135. APPEND -1 0.1875 0 -1 -0.1875 0 1 1 0 0 
  136. APPEND 1 0 0 0 0 0 1 1 0 0 
  137. APPEND 1 0 0 0.9125 0.03125 0 1 1 0 0 
  138. APPEND 1 0 0 0.9125 -0.03125 0 1 1 0 0 
  139. APPEND 1 0.1875 0 1 -0.1875 0 1 1 0 0 
  140. # 9 CENTER 0 0 0 
  141. # 9 ROTATE CURRENT 0 0 0 
  142. # 9 OFFSET ZERO 0 1.5 0 
  143.  
  144. GRAPH B&W # 0 DISPLAY 0 0 0 -1.000E+18 300 1 0 0
  145. LOCATE 1 25 ECHO Press [Return].
  146. WAIT
  147.  
  148. ; END DIMHV.MAC
  149.